object iadeserinookutmaF: TiadeserinookutmaF
  Left = 343
  Top = 123
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #304'ade Seri No Okutma'
  ClientHeight = 391
  ClientWidth = 569
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 8
    Top = 40
    Width = 35
    Height = 14
    Caption = 'Seri No'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object ekle: TSpeedButton
    Left = 7
    Top = 355
    Width = 58
    Height = 25
    AllowAllUp = True
    GroupIndex = 1
    Down = True
    Caption = 'Ekle'
  end
  object cikart: TSpeedButton
    Left = 73
    Top = 354
    Width = 72
    Height = 25
    AllowAllUp = True
    GroupIndex = 1
    Caption = #199#305'kart'
  end
  object tamam: TSpeedButton
    Left = 496
    Top = 353
    Width = 64
    Height = 25
    AllowAllUp = True
    Caption = 'Kapat'
    OnClick = tamamClick
  end
  object Label3: TLabel
    Left = 8
    Top = 16
    Width = 43
    Height = 14
    Caption = 'A'#231#305'klama'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object SeriNok: TEdit
    Left = 56
    Top = 32
    Width = 161
    Height = 22
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnKeyPress = SeriNokKeyPress
  end
  object wwDBGrid1: TwwDBGrid
    Left = 284
    Top = 67
    Width = 276
    Height = 272
    DisableThemes = False
    Selected.Strings = (
      'stokkodu'#9'25'#9'Stok Kodu'#9'F'
      'miktar'#9'6'#9'Miktar'#9#9
      'okutulan'#9'6'#9'Okutulan'#9#9)
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = iadestokS
    KeyOptions = [dgEnterToTab]
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 2
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
    OnCalcCellColors = wwDBGrid1CalcCellColors
  end
  object wwDBGrid2: TwwDBGrid
    Left = 16
    Top = 67
    Width = 253
    Height = 272
    DisableThemes = False
    ControlType.Strings = (
      'durum;CustomEdit;durum2k;F')
    Selected.Strings = (
      'serinos'#9'20'#9'Seri No'#9'F'
      'aciklama'#9'15'#9'A'#231#305'klama'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Color = clWhite
    DataSource = iadestokharS
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    KeyOptions = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object Aciklamak: TEdit
    Left = 56
    Top = 8
    Width = 161
    Height = 22
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnKeyPress = SeriNokKeyPress
  end
  object durum2k: TwwDBComboBox
    Left = 64
    Top = 152
    Width = 121
    Height = 22
    ShowButton = True
    Style = csDropDown
    MapList = True
    AllowClearKey = False
    DropDownCount = 8
    ItemHeight = 0
    Items.Strings = (
      'Test Ok'#9'1'
      'Kutu De'#287'i'#351'imi'#9'2'
      'Ar'#305'zal'#305#9'3'
      'Hasarl'#305#9'4'
      'Di'#287'er'#9'5')
    Sorted = False
    TabOrder = 4
    UnboundDataType = wwDefault
  end
  object SeriNoBulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatharhar '
      'with (nolock) where serinos=:serinos')
    Left = 280
    Top = 8
  end
  object iadestokQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select top 10 *,izlemeturu=(select izlemeturu from stok where st' +
        'ok.stokkod=iadestok.stokkod),kalan=(miktar-isnull(okutulan,0)) f' +
        'rom iadestok with (nolock)')
    Left = 376
    Top = 8
  end
  object iadestokS: TDataSource
    DataSet = iadestokQ
    Left = 336
    Top = 8
  end
  object iadestokharQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'iadeid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from iadestokhar'
      'where iadeid=:iadeid')
    Left = 376
    Top = 40
  end
  object iadestokharS: TDataSource
    DataSet = iadestokharQ
    Left = 336
    Top = 40
  end
  object FaturadaSerinoVarmiQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        DataType = ftInteger
        Size = 1
        Value = 1
      end>
    SQL.Strings = (
      'select serinos from fatharhar'
      'where bilisnocik'
      'in'
      '('
      'select bilisno from fatura'
      'where unityfaturano'
      'in'
      '('
      'select distinct faturano from iadestok'
      'where iadekod=:id and faturano is not null'
      ')'
      ')'
      '')
    Left = 432
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 392
    Top = 152
    object UrunuVer_1: TMenuItem
      Caption = #220'r'#252'n'#252' Kabul Et'
      OnClick = UrunuVer_1Click
    end
  end
end
